SuperHack/SuperHack CD.bin/CODING/DELPHI/GPCLIP.ZIP/SAMPLES.ZIP/FRAME/GPCLIP/SAMPLES/SDI1.DFM/SDI1.txt

Text File | 1996-07-30 | 6.2 KB | 273 lines

object Form1: TForm1
  Left = 297
  Top = 184
  BorderStyle = bsSingle
  Caption = 'gpClipboard Sample Program (SDI)'
  ClientHeight = 318
  ClientWidth = 362
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object TabbedNotebook1: TTabbedNotebook
    Left = 1
    Top = 0
    Width = 361
    Height = 317
    PageIndex = 1
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Std Text Controls'
      object Panel1: TPanel
        Left = 5
        Top = 5
        Width = 340
        Height = 274
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Label2: TLabel
          Left = 17
          Top = 17
          Width = 25
          Height = 13
          Caption = 'TEdit'
        end
        object Label3: TLabel
          Left = 17
          Top = 41
          Width = 51
          Height = 13
          Caption = 'TMaskEdit'
        end
        object Label4: TLabel
          Left = 17
          Top = 66
          Width = 58
          Height = 13
          Caption = 'TComboBox'
        end
        object Label5: TLabel
          Left = 17
          Top = 92
          Width = 36
          Height = 13
          Caption = 'TMemo'
        end
        object Label6: TLabel
          Left = 17
          Top = 185
          Width = 53
          Height = 13
          Caption = 'TStringGrid'
        end
        object Edit1: TEdit
          Left = 96
          Top = 15
          Width = 230
          Height = 20
          TabOrder = 0
          Text = 'TgpClipboard Component'
        end
        object MaskEdit1: TMaskEdit
          Left = 96
          Top = 39
          Width = 230
          Height = 20
          EditMask = '!99/99/00;1;_'
          MaxLength = 8
          TabOrder = 1
          Text = '07/31/96'
        end
        object ComboBox1: TComboBox
          Left = 96
          Top = 63
          Width = 230
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            'PROFESSIONAL'
            'Clipboard Support'
            'for'
            'Professional Software')
          TabOrder = 2
        end
        object Memo1: TMemo
          Left = 96
          Top = 88
          Width = 230
          Height = 89
          Lines.Strings = (
            'REGISTER TODAY!')
          TabOrder = 3
        end
        object StringGrid1: TStringGrid
          Left = 96
          Top = 181
          Width = 230
          Height = 77
          ColCount = 3
          FixedCols = 0
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
          RowCount = 3
          TabOrder = 4
        end
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Data Text Controls'
      object Panel2: TPanel
        Left = 5
        Top = 5
        Width = 340
        Height = 274
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Label1: TLabel
          Left = 17
          Top = 17
          Width = 40
          Height = 13
          Caption = 'TDBEdit'
        end
        object Label8: TLabel
          Left = 17
          Top = 42
          Width = 73
          Height = 13
          Caption = 'TDBComboBox'
        end
        object Label9: TLabel
          Left = 17
          Top = 68
          Width = 51
          Height = 13
          Caption = 'TDBMemo'
        end
        object Label10: TLabel
          Left = 17
          Top = 161
          Width = 41
          Height = 13
          Caption = 'TDBGrid'
        end
        object DBEdit1: TDBEdit
          Left = 96
          Top = 15
          Width = 230
          Height = 20
          DataField = 'Text1'
          DataSource = DataSource1
          MaxLength = 0
          TabOrder = 0
        end
        object DBComboBox1: TDBComboBox
          Left = 96
          Top = 39
          Width = 230
          Height = 21
          DataField = 'Text2'
          DataSource = DataSource1
          ItemHeight = 13
          Items.Strings = (
            'Designed by a'
            'Developer for'
            'other'
            'Developers!')
          TabOrder = 1
        end
        object DBMemo1: TDBMemo
          Left = 96
          Top = 64
          Width = 229
          Height = 89
          DataField = 'Memo1'
          DataSource = DataSource1
          TabOrder = 2
        end
        object DBGrid1: TDBGrid
          Left = 96
          Top = 157
          Width = 230
          Height = 101
          DataSource = DataSource1
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 3
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
    end
  end
  object gpClipboard: TgpClipboard
    UndoMenuItem = Undo1
    Left = 14
    Top = 272
  end
  object MainMenu1: TMainMenu
    Left = 44
    Top = 272
    object File1: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit2: TMenuItem
      Caption = '&Edit'
      object Undo1: TMenuItem
        Caption = '&Undo'
        OnClick = Undo1Click
        ShortCutText = 'Ctrl+Z'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = Cut1Click
        ShortCutText = 'Ctrl+X'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = Copy1Click
        ShortCutText = 'Ctrl+C'
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = Paste1Click
        ShortCutText = 'Ctrl+V'
      end
    end
  end
  object Table1: TTable
    DatabaseName = 'f:\frame\gpclip\setup'
    TableName = 'TEST.DB'
    Left = 73
    Top = 272
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 102
    Top = 272
  end
end